home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasic_1.zip / BAS_LIST.EXE / SONDEM.BAS < prev    next >
BASIC Source File  |  1992-05-02  |  172b  |  14 lines
  1. REM SOUND DEM
  2.  
  3. CLS
  4.  
  5. DO
  6.   INPUT "frequency"; frequency
  7.   IF frequency = 0 THEN EXIT DO
  8.   INPUT "duration "; duration
  9.   PRINT
  10.   SOUND frequency, duration
  11. LOOP
  12.  
  13.  
  14.